(ucs-input-method): Signal an error for a

Unicode character that is not yet supported.

diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index 1b4a3d3af1e8b2c738d6c61723b799e49e7c0a3f..c24b6f65057123f656e7bbed7581c5e8095b4645 100644 (file)
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -107,13 +107,17 @@
              (let* ((n (string-to-number (apply 'string
                                                 (cdr (nreverse events)))
                                          16))
-                    (c (decode-char 'ucs n))
-                    (status (make-vector 9 nil)))
+                    (c (decode-char 'ucs n)))
                (if c
                    (list c)
-                 (aset status 0 n)
-                 (string-to-list (ccl-execute-on-string
-                                  'utf-8-ccl-encode status ""))))))
+                 ;; The intention of the following code is to insert
+                 ;; a correct UTF-8 sequence by raw bytes, but
+                 ;; currently it doesn't work.
+                 ;; (let ((status (make-vector 9 nil)))
+                 ;;   (aset status 0 n)
+                 ;;   (string-to-list (ccl-execute-on-string
+                 ;;                    'utf-8-ccl-encode status "")))
+                 (error "Character U+%04X is not yet supported" n)))))
        (quail-delete-overlays)
        (set-buffer-modified-p modified-p)
        (run-hooks 'input-method-after-insert-chunk-hook)))))